home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_402_DoMenuItem.File < prev    next >
Encoding:
Text File  |  1992-04-08  |  644 b   |  34 lines
  1. %if MenuItemName = New%
  2. %elsif MenuItemName = Open%
  3. %elsif MenuItemName = Close%
  4. %elsif MenuItemName = Save%
  5. %elsif MenuItemName = SaveAs%
  6. %elsif MenuItemName = Quit%
  7. %elsif MenuItemName = Revert%
  8.     /*----------*/
  9.     static void DoRevert ()
  10.     {
  11.         Str255            fileName;
  12.         Boolean            okay;
  13.     
  14.         okay = true;    
  15.         if (cur->dirty) {
  16.             GetWTitle (curWindow, fileName);
  17.             ParamText (fileName, "\p", "\p", "\p");
  18.             okay = Confirm (RevertID);
  19.         }
  20.         if (okay) {
  21.             cur->dirty = false;
  22.             DisposeAppData ();
  23.             if (cur->fileNum != 0) {
  24.                 ReadAppFile (cur->fileNum);
  25.             }
  26.             InvalRect (&curWindow->portRect);
  27.         }
  28.     } /*DoRevert*/
  29.  
  30. %else%
  31.     %DoMenuItem%
  32.  
  33. %end if%
  34.